home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / utility2 / wine02bx.zip / LISP / X11 / X-FACES.ELC < prev    next >
Text File  |  1993-03-28  |  10KB  |  54 lines
  1. ;;; compiled by @win386 on Sat Mar 13 14:27:14 1993
  2. ;;; from file c:/src/lucid-19.4/lisp/x11/x-faces.el
  3. ;;; emacs version 19.3 Lucid.
  4. ;;; bytecomp version 2.08; 27-aug-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (byte-code "└└└└┼╞ë╟╚╔╩╚╦╠═ëë╬╠╞ëαß░Γπ░    QQ.ΣσMêµτMç" [nil x-font-regexp x-font-regexp-head x-font-regexp-weight x-font-regexp-slant "[-?]" "[^-]+" "\\(bold\\|demibold\\|medium\\)" "\\([^-]*\\)" "\\([ior]\\)" "\\([^-]?\\)" "[^-]*" "[0-9]+" "[0-9][0-9]+" "[cmp?*]" encoding registry avgwidth spacing resy resx pointsize pixelsize adstyle swidth slant\? slant weight\? weight family foundry - "\\`\\*?[-?*]" "[-?*]\\*?\\'" "\\`[-?*]" "\\([-*?]\\|\\'\\)" x-frob-font-weight #[(font which) "└    \n\"¼î└ \n\"¼å└ \n\"¡ì\n┼╞öO\n╞ò╚OQç" [string-match x-font-regexp font x-font-regexp-head x-font-regexp-weight 0 1 which nil] 5] x-frob-font-slant #[(font which) "└    \n\"¼å└ \n\"½Ä\n─┼öO\n┼ò╟OQç└\n\"½Ä\n─╔öO\n╔ò╟OQç╟ç" [string-match x-font-regexp font x-font-regexp-head 0 2 which nil x-font-regexp-slant 1] 5]] 27)
  14. (fset 'x-make-font-bold #[(font) "└    ┬\"ç" [x-frob-font-weight font "bold"] 3 "\
  15. Given an X font specification, this attempts to make a `bold' version
  16. of it.  If it fails, it returns nil."])
  17. (fset 'x-make-font-demibold #[(font) "└    ┬\"ç" [x-frob-font-weight font "demibold"] 3 "\
  18. Given an X font specification, this attempts to make a `demibold' version
  19. of it.  If it fails, it returns nil."])
  20. (fset 'x-make-font-unbold #[(font) "└    ┬\"ç" [x-frob-font-weight font "medium"] 3 "\
  21. Given an X font specification, this attempts to make a non-bold version
  22. of it.  If it fails, it returns nil."])
  23. (fset 'x-make-font-italic #[(font) "└    ┬\"ç" [x-frob-font-slant font "i"] 3 "\
  24. Given an X font specification, this attempts to make an `italic' version
  25. of it.  If it fails, it returns nil."])
  26. (fset 'x-make-font-oblique #[(font) "└    ┬\"ç" [x-frob-font-slant font "o"] 3 "\
  27. Given an X font specification, this attempts to make an `italic' version
  28. of it.  If it fails, it returns nil."])
  29. (fset 'x-make-font-unitalic #[(font) "└    ┬\"ç" [x-frob-font-slant font "r"] 3 "\
  30. Given an X font specification, this attempts to make a non-italic version
  31. of it.  If it fails, it returns nil."])
  32. (fset 'make-face-bold #[(face &optional screen) "    ┬    \"├H*    ¼Ö┼ ë½Å╟@\"êAë¼q)¬╧┬    \"ë    ┬    \"├H*«ÿ╚┬    \"├H*«ï╔    ┬    \"├H*╩  ═ !ë ½ç╬ \"¼Å╧ !ë ½å╬ \"ê* ╩┬    \"├H+Ü?ç" [face screen get-face 3 ofont screen-list screens make-face-bold t default nil f2 font x-make-font-bold try-face-font x-make-font-demibold] 5 "\
  33. Make the font of the given face be bold, if possible.  
  34. Returns nil on failure." (byte-code "└┴!Cç" [read-face-name "Make which face bold: "] 2)])
  35. (fset 'make-face-italic #[(face &optional screen) "    ┬    \"├H*    ¼Ö┼ ë½Å╟@\"êAë¼q)¬╧┬    \"ë    ┬    \"├H*«ÿ╚┬    \"├H*«ï╔    ┬    \"├H*╩  ═ !ë ½ç╬ \"¼Å╧ !ë ½å╬ \"ê* ╩┬    \"├H+Ü?ç" [face screen get-face 3 ofont screen-list screens make-face-italic t default nil f2 font x-make-font-italic try-face-font x-make-font-oblique] 5 "\
  36. Make the font of the given face be italic, if possible.  
  37. Returns nil on failure." (byte-code "└┴!Cç" [read-face-name "Make which face italic: "] 2)])
  38. (fset 'make-face-bold-italic #[(face &optional screen) "    ┬    \"├H*    ¼Ü┼ ë½Å╟@\"êAë¼q)é≈┬    \"ë    ┬    \"├H*«ÿ╚┬    \"├H*«ï╔    ┬    \"├H*╩ë  ╬!ë ½₧ ܼù╧ !ë ½Ä  ܼç╨ \"¼⌠╤!ë ½₧ ܼù╧ !ë ½Ä  ܼç╨ \"¼═╬!ë ½₧ ܼù╥ !ë ½Ä  ܼç╨ \"¼ª╤!ë ½¥ ܼû╥ !ë ½ì  ܼå╨ \"ê+     ┬    \"├H+Ü?ç" [face screen get-face 3 ofont screen-list screens make-face-bold-italic t default nil f3 f2 font x-make-font-italic x-make-font-bold try-face-font x-make-font-oblique x-make-font-demibold] 5 "\
  39. Make the font of the given face be bold and italic, if possible.  
  40. Returns nil on failure." (byte-code "└┴!Cç" [read-face-name "Make which face bold-italic: "] 2)])
  41. (fset 'make-face-unbold #[(face &optional screen) "    ┬    \"├H*    ¼Ö┼ ë½Å╟@\"êAë¼q)¬╕┬    \"╚    ┬    \"├H*«ÿ╔┬    \"├H*«ï╩    ┬    \"├H*!ë ½å╠ \"ê)     ┬    \"├H+Ü?ç" [face screen get-face 3 ofont screen-list screens make-face-unbold x-make-font-unbold t default font try-face-font] 5 "\
  42. Make the font of the given face be non-bold, if possible.  
  43. Returns nil on failure." (byte-code "└┴!Cç" [read-face-name "Make which face non-bold: "] 2)])
  44. (fset 'make-face-unitalic #[(face &optional screen) "    ┬    \"├H*    ¼Ö┼ ë½Å╟@\"êAë¼q)¬╕┬    \"╚    ┬    \"├H*«ÿ╔┬    \"├H*«ï╩    ┬    \"├H*!ë ½å╠ \"ê)     ┬    \"├H+Ü?ç" [face screen get-face 3 ofont screen-list screens make-face-unitalic x-make-font-unitalic t default font try-face-font] 5 "\
  45. Make the font of the given face be non-italic, if possible.  
  46. Returns nil on failure." (byte-code "└┴!Cç" [read-face-name "Make which face non-italic: "] 2)])
  47. (byte-code "└┴Mê┬├Mç" [x-resource-face #[(face &optional screen set-anyway) "¼ƒ┴ ë½ò├ ┼ !╞H)\n@#ê\nAë¼k)é6┼ ┼ !╞H)\"╚ ┼ !╞H)!    ╩    ╦P╠═$«Å¡ï ╬┼ \"╧H*╩    ╤P╥═$«Å¡ï ╬┼ \"╙H*╩    ╒P╓═$«Å¡ï ╬┼ \"╫H*╩    ┘P┌═$«Å¡ï ╬┼ \"█H*╩    ▌P▐▀$«Å¡ï ╬┼ \"αH*! ┼ !╞H)Γ=½ñ¼ê╩πΣ═$¼ê╩σµ═$¼ê╩τΦ═$½à╬ΘΩÅê½à╬δ∞Åê½à╬φεÅê½à╬∩≡Åê!¼ä½Æ !1≥ ≤1α%ê+. ç" [screen screen-list screens x-resource-face face get-face 1 set-anyway symbol-name name x-get-resource ".attributeFont" "Face.AttributeFont" string nil 3 fn ".attributeForeground" "Face.AttributeForeground" 4 fg ".attributeBackground" "Face.AttributeBackground" 5 bg ".attributeBackgroundPixmap" "Face.AttributeBackgroundPixmap" 6 bgp ".attributeUnderline" "Face.AttributeUnderline" boolean 7 ulp default "font" "Font" "foreground" "Foreground" "background" "Background" (byte-code "    \n─├ ┼\n%ê+─ç" [face fn screen font set-face-1 3] 6) ((error (message "font %s not found for face %s" fn name))) (byte-code "    \n─┼ ╞\n%ê+─ç" [face fg screen color set-face-1 foreground 4] 6) ((error (message "color %s not allocated for face %s" fg name))) (byte-code "    \n─┼ ╞\n%ê+─ç" [face bg screen color set-face-1 background 5] 6) ((error (message "color %s not allocated for face %s" bg name))) (byte-code "    \n─┼ ╞\n%ê+─ç" [face bgp screen name set-face-1 background-pixmap 6] 6) ((error (message "pixmap %s not found for face %s" bgp name))) underline-p set-face-1 underline] 7] x-initialize-screen-faces #[(screen) "└┴\n\"└├\n\"─    \n\"¼░┼    ╞\n#¼⌐┼    ╟\n#¼ó┼    ╚\n#¼¢┼    ╔\n#¼ö┼    ╩\n#¼ì┼    ╦\n#¼å┼    ╠\n#ê    \n└\n\"╬H*    \n└\n\"╧H*ë½ä¼²½çù╥ܼö½çù╙ܼë╘╒╓╫\n$@½░¼ô    ╥\n┘┌╬\n%ê+¼├    ╙\n┘█╧\n%ê+¬«¼ô    ╙\n┘┌╬\n%ê+¼ô    ╥\n┘█╧\n%ê+*▄\n!ê▌\n!*ç" [get-face default screen modeline face-font try-face-font "-*-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-*" "-*-courier-*-r-*-*-*-120-*-*-*-*-iso8859-*" "-*-*-medium-r-*-*-*-120-*-*-m-*-iso8859-*" "-*-*-medium-r-*-*-*-120-*-*-c-*-iso8859-*" "-*-*-*-r-*-*-*-120-*-*-m-*-iso8859-*" "-*-*-*-r-*-*-*-120-*-*-c-*-iso8859-*" "-*-*-*-r-*-*-*-120-*-*-*-*-iso8859-*" face 4 5 bg fg "white" "black" x-get-resource "reverseVideo" "ReverseVideo" boolean color set-face-1 foreground background x-initialize-other-random-faces x-initialize-pointer-shape] 7]] 2)
  48. (fset 'x-initialize-other-random-faces #[(screen) "└┴\n\"¼ï├┴\n\"¼à─┴\n\"ê└┼\n\"¼à╞┼\n\"ê└╟\n\"¼æ╚╟\n\"¼ï╞╟\n\"½à─╟\n\"ê╔╩!¼ä╦╩!ê╔╠!¼ä╦╠!ê└═\n\"¼à╬╧╨Åê└╩\n\"¼à╬╤╥Åê└╠\n\"¼à╬╙╘Åê└╒\n\"«ö╓ ½å╬╫╪Å«è├╒\n\"«ä─╒\n\"ç" [face-differs-from-default-p bold screen make-face-bold make-face-unbold italic make-face-italic bold-italic make-face-bold-italic find-face primary-selection make-face secondary-selection highlight nil (byte-code "└ ½ç┴┬├Åê¬û─┼╔╩╦%ê+┴ç" [x-color-display-p nil (byte-code "└┴\n┼ ╞ ╟\n%ê+└ç" [highlight "darkseagreen2" screen color face set-face-1 background 5] 6) ((error (byte-code "└┴\n┼ ╞ ╟\n%ê+└ç" [highlight "green" screen color face set-face-1 background 5] 6))) highlight "gray1" screen name face set-face-1 background-pixmap 6] 6) ((error (byte-code "└┴\n\"ç" [invert-face highlight screen] 3))) (byte-code "└ ½æ┴┬ ╞╟ ╚ %ê+¬æ┴╔ \n╞╦\n╠ %ê+└ç" [x-color-display-p primary-selection "gray" screen color face set-face-1 background 5 "gray3" name background-pixmap 6] 6) ((error (byte-code "└┴\n\"ç" [invert-face primary-selection screen] 3))) (byte-code "└ ½ç┴┬├Åê¬û─┼╔╩╦%ê+┴ç" [x-color-display-p nil (byte-code "└┴\n┼ ╞ ╟\n%ê+└ç" [secondary-selection "paleturquoise" screen color face set-face-1 background 5] 6) ((error (byte-code "└┴\n┼ ╞ ╟\n%ê+└ç" [secondary-selection "green" screen color face set-face-1 background 5] 6))) secondary-selection "gray1" screen name face set-face-1 background-pixmap 6] 6) ((error (byte-code "└┴\n\"ç" [invert-face secondary-selection screen] 3))) isearch x-color-display-p (byte-code "└┴\n┼ ╞ ╟\n%+ç" [isearch "paleturquoise" screen color face set-face-1 background 5] 6) ((error (byte-code "└┴┬Åç" [nil (byte-code "└┴\n┼ ╞ ╟\n%+ç" [isearch "green" screen color face set-face-1 background 5] 6) ((error))] 3)))] 3 "\
  49. Initializes the colors and fonts of the bold, italic, bold-italic, 
  50. primary-selection, secondary-selection, and isearch faces when each
  51. screen is created.  If you want to add code to do stuff like this, use
  52. the create-screen-hook."])
  53. (provide 'x-faces)
  54.